home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol052 / sign.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-13  |  11.8 KB  |  290 lines
  1. 3  CLS:KEY OFF
  2. 4  DIM PP(25,80)
  3. 5  LOCATE 10,15: INPUT " IF YOU WANT TO SKIP THE INSTRUCTIONS TYPE Y";YS$
  4. 6  IF LEFT$(YS$,1)="Y" OR LEFT$(YS$,1)="y" GOTO 250 ELSE GOTO 10
  5. 10  COUNT=1 : LINES = 3 : AAALTR$=CHR$(64) : AAA=ASC(AAALTR$)
  6. 20  REM THIS PRINTS AN ALPHABET TO THE SCREEN
  7. 50  FIRST$ = "  I PRINT SIGNS"
  8. 60  LL=LEN(FIRST$)
  9. 70  SECON$ = " JUST FOLLOW MY"
  10. 80  LL2 =LEN(SECON$)
  11. 90  THIRD$ = "   DIRECTIONS "
  12. 100  LL3 = LEN(THIRD$)
  13. 110  GOTO  580
  14. 120  COLOR 7,6 : LOCATE 21,25 : PRINT "  PRESS ANY KEY TO CONTINUE  "
  15. 130  C$=INKEY$: IF C$="" THEN 130
  16. 140  CLS : LOCATE 5, 20 : PRINT " WHAT WOULD YOU LIKE TO MAKE INTO A SIGN"
  17. 150  LOCATE 7,5 : PRINT " THIS WILL PRINT UP TO FIFTEEN CAPITAL LETTERS OR NUMBERS ON ONE LINE" : LOCATE 8,35 : PRINT STRING$(9,205)
  18. 160  LOCATE 9,5 : PRINT "Most letters take 5 spaces but if you use many M,Q,T,V,W,X,or Y's then"
  19. 170  LOCATE 10,19 : PRINT " drop back to 13 or 14 letters on a line."
  20. 180  LOCATE 12,13 : PRINT CHR$(218) : LOCATE 12,14 : PRINT STRING$(53,196) : LOCATE 12,67 : PRINT CHR$(191)
  21. 190  LOCATE 13,13 : PRINT CHR$(179) : LOCATE 13,14 : PRINT " IF YOU WANT A SPACE ON THE LEFT SIDE START WITH A ' " : LOCATE 13,67 : PRINT CHR$(179)
  22. 200  LOCATE 14,13 : PRINT CHR$(192): LOCATE 14,14 : PRINT STRING$(53,196) : LOCATE 14,67 : PRINT CHR$(217)
  23. 210  LOCATE 17,20 :PRINT " YOU CAN PRINT THREE LINES ON THE SCREEN"
  24. 220  LOCATE 19,18 :PRINT " YOU CAN ALSO COPY YOUR SCREEN ON A PRINTER"
  25. 230  LOCATE 21, 28 : PRINT "PRESS ANY KEY TO CONTINUE"
  26. 240  A$=INKEY$: IF A$="" THEN 240
  27. 250  CLS
  28. 260  LOCATE 5, 12 :INPUT " NUMBER OF LINES, THIS MUST BE A NUMBER BETWEEN 1 AND 3 " ; LINES
  29. 270  IF LINES >=1 AND LINES <= 3 THEN GOTO 290
  30. 280  INPUT " INVALID ANSWER PLEASE ENTER NUMBER OF LINES 1, 2, OR 3"; LINES : CLS : GOTO 270
  31. 290  CLS
  32. 300  LOCATE 10,7 : PRINT " WHAT KEYBOARD CHARACTER DO YOU WANT TO USE FOR PRINTING THE SCREEN?"
  33. 310  LOCATE 15,17 : INPUT " PLEASE ENTER ONE CHARACTER FROM THE KEYBOARD:"; AAALTR$
  34. 320  CLS
  35. 330  LOCATE 10,17 : INPUT " DO YOU WANT TO COPY THE SCREEN ON A PRINTER"; YN$
  36. 340  IF LEFT$(YN$,1)= "Y" THEN GOTO 360 ELSE IF LEFT$(YN$,1)= "y" THEN GOTO 360 ELSE IF LEFT$(YN$,1)= "N" THEN GOTO 360 ELSE IF LEFT$(YN$,1)="n" THEN GOTO 360
  37. 350  LOCATE 15,17 : INPUT " PLEASE ANSWER YES OR NO"; YN$ : CLS : GOTO 340
  38. 360  IF (YN$= "Y") OR  (YN$ ="y") THEN PTOSCR=1 ELSE PTOSCR=0
  39. 370  IF PTOSCR=0 GOTO 410
  40. 380  CLS
  41. 390  LOCATE 10,18 : PRINT " IT TAKES ABOUT 36 SECONDS TO SET UP A TABLE "
  42. 400  FOR I=2 TO 18 : FOR J=1 TO 80 : PP(I,J)=0 : LOCATE 15,36 : PRINT TIME$ : NEXT : NEXT
  43. 410  AAA= ASC(AAALTR$)
  44. 420  CLS : X= 1: Y=1
  45. 430  LOCATE 8, 10 : PRINT "  THANK YOU, WHAT DO YOU WANT TO ENTER?"
  46. 440  LOCATE 10,18: PRINT STRING$(15,CHR$(95))
  47. 450  LOCATE 10,5 :INPUT "FIRST LINE ";  FIRST$ : LOCATE 9,1 : PRINT STRING$(80,CHR$(32))
  48. 460  LL=LEN(FIRST$): IF LL <=15 THEN GOTO 480
  49. 470  LOCATE 10,1 : PRINT STRING$(80,CHR$(32)) : LOCATE 10,53 : PRINT STRING$(15,CHR$(95)) : LOCATE 10,5 : INPUT " INVALID LENGTH PLEASE NO MORE THAN 15 SYMBOLS"; FIRST$ : GOTO 460
  50. 480  CHECK=1 : GOSUB 2800 : IF OK=2 THEN LOCATE 9,1 : PRINT "THE LINE TAKES MORE THAN 80 CHARACTERS PLEASE REENTER" : LOCATE 10,1 : PRINT STRING$(80,CHR$(32)) : GOTO 440 ELSE IF LINES = 1 THEN GOTO 581
  51. 490  LOCATE 12, 18 : PRINT STRING$(15,CHR$(95))
  52. 500  LOCATE 12,5 : INPUT "SECOND LINE"; SECON$ : LOCATE 11,1 : PRINT STRING$(80,CHR$(32))
  53. 510  LL2 =LEN(SECON$) : IF LL2 <=15 THEN GOTO 530
  54. 520  LOCATE 12,1 : PRINT STRING$(80, CHR$(32)) : LOCATE 12,53 : PRINT STRING$(15,CHR$(95)) :  LOCATE 12,5 : INPUT " INVALID LENGTH PLEASE NO MORE THAN 15 SYMBOLS"; SECON$ : GOTO 510
  55. 530  CHECK=2 : GOSUB 2800 : IF OK=2 THEN LOCATE 11,5 : PRINT "THE LINE TAKES MORE THAN 80 CHARACTERS PLEASE REENTER" : LOCATE 12,1 : PRINT STRING$(80,CHR$(32)) : GOTO 490 ELSE IF LINES = 2 THEN GOTO 581
  56. 540  LOCATE 14,18 :PRINT STRING$(15,CHR$(95))
  57. 550  LOCATE 14,5: INPUT "THIRD LINE "; THIRD$ :LOCATE 13,1 : PRINT STRING$(80,CHR$(32))
  58. 560  LL3 = LEN(THIRD$) : IF LL3 <=15 THEN GOTO 580
  59. 570  LOCATE 14,1 : PRINT STRING$(80, CHR$(32)) : LOCATE 14,53 : PRINT STRING$(15,CHR$(95)) : LOCATE 14,5 : INPUT " INVALID LENGTH PLEASE NO MORE THAN 15 SYMBOLS"; THIRD$ : GOTO 560
  60. 580  CHECK=3 : GOSUB 2800 : IF OK=2 THEN LOCATE 13,5 : PRINT "THE LINE TAKES MORE THAN 80 CHARACTERS PLEASE REENTER" : LOCATE 14,1 : PRINT STRING$(80,CHR$(32)) : GOTO 540 ELSE GOTO 581
  61. 581  CLS
  62. 590  X=1 : Y=1
  63. 600  FOR TIMES = 1 TO LINES
  64. 610  IF TIMES = 1 THEN LENGTH=LL ELSE IF TIMES =2 THEN LENGTH=LL2 ELSE IF TIMES = 3 THEN LENGTH = LL3
  65. 620  IF TIMES = 1 THEN WORD$=FIRST$ ELSE IF TIMES=2 THEN WORD$=SECON$ ELSE IF TIMES = 3 THEN WORD$ =THIRD$
  66. 630  FOR LTRS = 1 TO LENGTH
  67. 640  LTR$=MID$(WORD$,LTRS,1)
  68. 650  NUM=ASC(LTR$)
  69. 660  GOSUB 770
  70. 670  NEXT LTRS
  71. 680  X=1 : Y= Y + 6
  72. 690  NEXT TIMES
  73. 700  IF COUNT =1 THEN COUNT =2:GOTO 120 ELSE GOTO 720
  74. 720  IF PTOSCR=1 THEN GOTO 730 ELSE GOTO 760
  75. 730   FOR I=2 TO 18 :FOR J= 1 TO 80
  76. 740  IF PP(I,J)=1 THEN LPRINT CHR$(AAA); ELSE LPRINT " ";
  77. 750  NEXT:NEXT
  78. 751  COLOR 7,0
  79. 760  END
  80. 770  IF (NUM >=65) AND (NUM <=90) THEN G=NUM-64 ELSE GOTO 790
  81. 780  ON G GOSUB 850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2050,2100
  82. 790  IF NUM >=48 AND NUM <=57 THEN H= NUM-47 ELSE GOTO 810
  83. 800  ON H GOSUB 2150, 2200, 2250, 2300, 2350, 2400, 2450, 2500, 2550, 2600
  84. 810  IF NUM = 46 THEN GOSUB 2650 ELSE GOTO 820
  85. 820  IF NUM = 44 THEN GOSUB 2700 ELSE GOTO 830
  86. 830  IF NUM = 32 THEN GOSUB 2750 ELSE GOTO 840
  87. 840  RETURN
  88. 850  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  'A
  89. 860  IF I>1 AND (J=1 OR J=4) THEN GOTO 870  ELSE IF (J=2 OR J=3) AND (I=1 OR I=3) THEN GOTO 870 ELSE GOTO 880
  90. 870  PRINT CHR$(AAA) : PP(I+Y,X+J)=1
  91. 880  NEXT:NEXT
  92. 890  X=X+5 : RETURN
  93. 900  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X 'B
  94. 910  IF J=2 THEN GOTO 920 ELSE IF (I=1 OR I=5) AND J<4 THEN GOTO 920 ELSE IF J=3 AND I=3 THEN GOTO 920 ELSE IF J=4 AND (I=2 OR I=4) THEN GOTO 920 ELSE GOTO 930
  95. 920  PRINT CHR$(AAA): PP(I+Y,X+J)=1
  96. 930  NEXT:NEXT
  97. 940  X=X+5 : RETURN
  98. 950  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X 'C
  99. 960  IF J=1 AND (I=2 OR I=3 OR I=4 ) THEN GOTO 970 ELSE IF (I=1 OR I=5) AND (J=2 OR J=3) THEN GOTO 970 ELSE IF J=4 AND (I=2 OR I=4) GOTO 970  ELSE  GOTO 980
  100. 970  PRINT CHR$(AAA) : PP(I+Y,X+J)=1
  101. 980  NEXT:NEXT
  102. 990  X=X+5 : RETURN
  103. 1000  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  'D
  104. 1010  IF J=2 THEN GOTO 1020 ELSE IF (I=1 OR I=5 ) AND J<4 THEN GOTO 1020 ELSE IF J=4 AND (I=2 OR I=3 OR I=4) THEN GOTO 1020 ELSE GOTO 1030
  105. 1020  PRINT CHR$(AAA) : PP(I+Y,X+J)=1
  106. 1030  NEXT:NEXT
  107. 1040  X=X+5 : RETURN
  108. 1050  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X 'E
  109. 1060  IF J=1 THEN GOTO 1070 ELSE IF J<>1 AND I=1 THEN GOTO 1070 ELSE IF J<>1 AND I=5 THEN GOTO 1070 ELSE IF J=2 AND I=3 GOTO 1070 ELSE IF J=3 AND I=3 THEN GOTO 1070 ELSE  GOTO 1080
  110. 1070  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  111. 1080  NEXT:NEXT
  112. 1090  X=X+5 : RETURN
  113. 1100  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X   'F
  114. 1110  IF J=1 THEN GOTO 1120 ELSE IF J<>1 AND I=1 THEN GOTO 1120 ELSE IF J=2 AND I=3 THEN GOTO 1120 ELSE IF J=3 AND I=3 THEN GOTO 1120 ELSE GOTO 1130
  115. 1120  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  116. 1130  NEXT:NEXT
  117. 1140  X=X+5 : RETURN
  118. 1150  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X 'G
  119. 1160  IF J=1 AND  (I=2 OR I=3 OR I=4) THEN GOTO 1170 ELSE IF J<>1 AND I=1 THEN GOTO 1170 ELSE IF (J=2 OR J=3) AND I=5 THEN GOTO 1170 ELSE IF J=4 AND I=4 GOTO 1170 ELSE IF (J=4 OR J=3) AND I=3 THEN GOTO 1170 ELSE GOTO 1180
  120. 1170  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  121. 1180  NEXT:NEXT
  122. 1190  X=X+5  : RETURN
  123. 1200  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  'H
  124. 1210  IF J=1 OR J=4 THEN GOTO 1220 ELSE IF J<>1 AND I=3 THEN GOTO 1220 ELSE GOTO 1230
  125. 1220  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  126. 1230  NEXT:NEXT
  127. 1240  X=X+5 : RETURN
  128. 1250  FOR I=1 TO 5 : FOR J=1 TO 3 : LOCATE I+Y,J+X  'I
  129. 1260  IF J=2 THEN GOTO 1270 ELSE IF J<>2 AND I=1 THEN GOTO 1270 ELSE IF J<>2 AND I=5 THEN GOTO 1270 ELSE GOTO 1280
  130. 1270  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  131. 1280  NEXT:NEXT
  132. 1290  X=X+4  : RETURN
  133. 1300  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  'J
  134. 1310  IF J=4 AND I<5 THEN GOTO 1320 ELSE IF (J=2 OR J=3) AND I=5 THEN GOTO 1320 ELSE IF J=1 AND I=4 THEN GOTO 1320 ELSE GOTO 1330
  135. 1320  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  136. 1330  NEXT:NEXT
  137. 1340  X=X+5 : RETURN
  138. 1350  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X 'K
  139. 1360  IF J=1 THEN GOTO 1370 ELSE IF J=2 AND I=3 THEN GOTO 1370 ELSE IF J=3 AND I=2  THEN GOTO 1370  ELSE IF J=4 AND I=1 THEN GOTO 1370 ELSE IF J=3 AND I=4 THEN 1370 ELSE IF J=4 AND I=5 THEN GOTO 1370 ELSE GOTO 1380
  140. 1370  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  141. 1380  NEXT:NEXT
  142. 1390  X=X+5 : RETURN
  143. 1400  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  'L
  144. 1410  IF J=1 THEN GOTO 1420 ELSE IF J<>1 AND I=5 THEN GOTO 1420 ELSE GOTO 1430
  145. 1420  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  146. 1430  NEXT:NEXT
  147. 1440  X=X+5 : RETURN
  148. 1450  FOR I = 1 TO 5 :FOR J=1 TO 5 :LOCATE I+Y,J+X 'M
  149. 1460  IF (J=1) OR (J=5) THEN GOTO 1470 ELSE IF I=2 AND (J=2 OR J=4)  THEN GOTO 1470 ELSE IF J=3  AND I=3 THEN GOTO 1470 ELSE GOTO 1480
  150. 1470  PRINT CHR$(AAA):PP(I+Y,X+J)=1
  151. 1480  NEXT:NEXT
  152. 1490  X=X+6 : RETURN
  153. 1500  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X   'N
  154. 1510  IF J=1 OR J=4 THEN GOTO 1520 ELSE IF J=2 AND I=2 THEN GOTO 1520 ELSE IF J=3 AND I=3 THEN GOTO 1520 ELSE GOTO 1530
  155. 1520  PRINT CHR$(AAA):PP(I+Y,X+J)=1
  156. 1530  NEXT:NEXT
  157. 1540  X=X+5: RETURN
  158. 1550  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X   'O
  159. 1560  IF (J=1 OR J=4) AND (I=2 OR I=3 OR I=4) THEN GOTO 1570 ELSE IF (I=1 OR I=5) AND (J=2 OR J=3) THEN GOTO 1570 ELSE GOTO 1580
  160. 1570  PRINT CHR$(AAA)  :PP(I+Y,X+J)=1
  161. 1580  NEXT:NEXT
  162. 1590  X=X+5 : RETURN
  163. 1600  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  'P
  164. 1610  IF J=1 THEN GOTO 1620 ELSE IF (J=2 OR J=3) AND (I=1 OR I=3) THEN GOTO 1620 ELSE IF J=4 AND I=2 THEN GOTO 1620 ELSE GOTO 1630
  165. 1620  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  166. 1630  NEXT:NEXT
  167. 1640  X=X+5 : RETURN
  168. 1650  FOR I=1 TO 5 : FOR J=1 TO 5 : LOCATE I+Y,J+X   'Q
  169. 1660  IF (J=1 OR J=4) AND (I=2 OR I=3 OR I=4) THEN GOTO 1670 ELSE IF (I=1 OR I=5) AND (J=2 OR J=3) THEN GOTO 1670 ELSE IF J=3  AND I=4  THEN GOTO 1670  ELSE IF J=5 AND I=5 THEN GOTO 1670 ELSE GOTO 1680
  170. 1670  PRINT CHR$(AAA):PP(I+Y,X+J)=1
  171. 1680  NEXT : NEXT
  172. 1690  X=X+6 : RETURN
  173. 1700  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X 'R
  174. 1710  IF J=1 THEN GOTO 1720 ELSE IF (I=1 OR I=3) AND (J=2 OR J=3) THEN GOTO 1720 ELSE IF J=4 AND I=2 THEN GOTO 1720 ELSE IF J=3 AND I=4 THEN GOTO 1720 ELSE IF J=4 AND I=5 THEN GOTO 1720 ELSE GOTO 1730
  175. 1720  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  176. 1730  NEXT:NEXT
  177. 1740  X=X+5 : RETURN
  178. 1750  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X   'S
  179. 1760  IF I=1 AND J>1 THEN GOTO 1770 ELSE IF I=3 AND (J=2 OR J=3) THEN GOTO 1770 ELSE IF I=5 AND J<4  THEN GOTO 1770  ELSE IF J=1 AND I=2 THEN GOTO 1770 ELSE IF J=4 AND I=4 THEN GOTO 1770 ELSE GOTO 1780
  180. 1770  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  181. 1780  NEXT:NEXT
  182. 1790  X=X+5 : RETURN
  183. 1800  FOR I=1 TO 5 : FOR J=1 TO 5 : LOCATE I+Y,J+X  'T
  184. 1810  IF J=3 THEN GOTO 1820 ELSE IF I=1 THEN GOTO 1820 ELSE GOTO 1830
  185. 1820  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  186. 1830  NEXT:NEXT
  187. 1840  X=X+6 : RETURN
  188. 1850  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X   'U
  189. 1860  IF (J=1 OR J=4) AND I<5 THEN GOTO 1870 ELSE IF I=5 AND (J=2 OR J=3) THEN GOTO 1870 ELSE GOTO 1880
  190. 1870  PRINT CHR$(AAA): PP(I+Y,X+J)=1
  191. 1880  NEXT:NEXT
  192. 1890  X=X+5 : RETURN
  193. 1900  FOR I=1 TO 5 : FOR J=1 TO 5: LOCATE I+Y,J+X    'V
  194. 1910  IF (J=1 OR J=5) AND I<4 THEN 1920 ELSE IF I=4 AND (J=2 OR J=4) THEN GOTO 1920 ELSE IF J=3 AND I=5 THEN GOTO 1920 ELSE GOTO 1930
  195. 1920  PRINT CHR$(AAA): PP(I+Y,X+J)=1
  196. 1930  NEXT: NEXT
  197. 1940  X=X+6 : RETURN
  198. 1950  FOR I = 1 TO 5:FOR J=1 TO 5: LOCATE I+Y,J+X    'W
  199. 1960  IF (J=1) OR (J=5) THEN GOTO 1970 ELSE IF I=4 AND (J=2 OR J=4)  THEN GOTO 1970 ELSE  IF I=3 AND J=3 THEN GOTO 1970 ELSE GOTO 1980
  200. 1970  PRINT CHR$(AAA): PP(I+Y,X+J)=1
  201. 1980  NEXT:NEXT
  202. 1990  X=X+6 : RETURN
  203. 2000  FOR I=1 TO 5 : FOR J=1 TO 5 : LOCATE I+Y,J+X   'X
  204. 2010  IF J=I THEN GOTO 2020 ELSE IF J=1 AND I=5 THEN GOTO 2020 ELSE IF J=2 AND I=4 THEN GOTO 2020 ELSE IF J=4 AND I=2 THEN GOTO 2020 ELSE IF J=5 AND I=1 THEN GOTO 2020 ELSE GOTO 2030
  205. 2020  PRINT CHR$(AAA):PP(I+Y,X+J)=1
  206. 2030  NEXT:NEXT
  207. 2040  X=X+6 : RETURN
  208. 2050  FOR I=1 TO 5 : FOR J=1 TO 5 : LOCATE I+Y,J+X  'Y
  209. 2060  IF J=1 AND I=1 THEN GOTO 2070 ELSE IF J=5 AND I=1 THEN GOTO 2070 ELSE IF J=2 AND I=2 THEN GOTO 2070 ELSE IF J=4 AND I=2 THEN GOTO 2070 ELSE IF J=3 AND I>2 THEN GOTO 2070 ELSE GOTO 2080
  210. 2070  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  211. 2080  NEXT:NEXT
  212. 2090  X=X+6 : RETURN
  213. 2100  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  'Z
  214. 2110  IF J=6-I THEN GOTO 2120 ELSE IF I=1 OR I=5 THEN GOTO 2120 ELSE GOTO 2130
  215. 2120  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  216. 2130  NEXT:NEXT
  217. 2140  X=X+6 : RETURN
  218. 2150  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  '0
  219. 2160  IF I=1 OR I=5 THEN GOTO 2170 ELSE IF J=1 OR J=4 THEN GOTO 2170 ELSE GOTO 2180
  220. 2170  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  221. 2180  NEXT:NEXT
  222. 2190  X=X+5 : RETURN
  223. 2200  FOR I=1 TO 5 : FOR J=1 TO 3 : LOCATE I+Y,J+X  '1
  224. 2210  IF J=2 THEN GOTO 2220 ELSE IF J=1 AND I=1 THEN GOTO 2220 ELSE IF I=5 THEN GOTO 2220 ELSE GOTO 2230
  225. 2220  PRINT CHR$(AAA) : PP(I+Y,X+J)=1
  226. 2230  NEXT:NEXT
  227. 2240  X=X+4 : RETURN
  228. 2250  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X   '2
  229. 2260  IF J=6-I THEN GOTO 2270 ELSE IF I=5 THEN GOTO 2270 ELSE IF J=1 AND I=2 THEN GOTO 2270 ELSE IF I=1 AND (J=2 OR J=3) THEN GOTO 2270 ELSE GOTO 2280
  230. 2270  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  231. 2280  NEXT:NEXT
  232. 2290  X=X+5 : RETURN
  233. 2300  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  '3
  234. 2310  IF J=4 AND (I=2 OR I=3 OR I=4) THEN GOTO 2320 ELSE IF (I=1 OR I=5) AND (J=2 OR J=3) THEN GOTO 2320 ELSE IF (I=2 OR I=4) AND J=1 THEN GOTO 2320  ELSE IF I=3 AND J=3 THEN GOTO 2320 ELSE GOTO 2330
  235. 2320  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  236. 2330  NEXT:NEXT
  237. 2340  X=X+ 5 : RETURN
  238. 2350  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X   '4
  239. 2360  IF J=3 THEN GOTO 2370 ELSE IF I=3 THEN GOTO 2370 ELSE IF J=1 AND I=1 THEN GOTO 2370  ELSE IF J=1 AND I=2 THEN GOTO 2370 ELSE GOTO 2380
  240. 2370  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  241. 2380  NEXT:NEXT
  242. 2390  X=X+5 : RETURN
  243. 2400  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  '5
  244. 2410  IF I=1 THEN GOTO 2420 ELSE IF I=2 AND J=1 THEN GOTO 2420 ELSE IF I=4 AND J=4 THEN GOTO 2420  ELSE IF (I=3 OR I=5) AND J<4 THEN GOTO 2420 ELSE GOTO 2430
  245. 2420  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  246. 2430  NEXT:NEXT
  247. 2440  X=X+5 : RETURN
  248. 2450  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  '6
  249. 2460  IF I=1 AND J>1 THEN GOTO 2470 ELSE IF J=1 AND (I=2 OR I=3 OR I=4) THEN GOTO 2470 ELSE IF (I=3 OR I=5) AND (J=2 OR J=3) THEN GOTO 2470  ELSE IF J=4 AND I=4 THEN GOTO 2470 ELSE GOTO 2480
  250. 2470  PRINT CHR$(AAA): PP(I+Y,X+Y)=1
  251. 2480  NEXT:NEXT
  252. 2490  X=X+5 : RETURN
  253. 2500  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X '7
  254. 2510  IF I=1 THEN GOTO 2520 ELSE IF J=4 AND I=2 THEN GOTO 2520 ELSE IF J=3 AND (I=3 OR I=4 OR I=5) THEN GOTO 2520 ELSE  GOTO 2530
  255. 2520  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  256. 2530  NEXT:NEXT
  257. 2540  X=X+5: RETURN
  258. 2550  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X  '8
  259. 2560  IF (I=1 OR I=3 OR I=5) AND (J=2 OR J=3) THEN GOTO 2570 ELSE IF (J=1 OR J=4) AND (I=2 OR I=4) THEN GOTO 2570 ELSE GOTO 2580
  260. 2570  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  261. 2580  NEXT:NEXT
  262. 2590  X=X+5 : RETURN
  263. 2600  FOR I=1 TO 5 : FOR J=1 TO 4 : LOCATE I+Y,J+X '9
  264. 2610  IF (I=1 OR I=3) AND (J=2 OR J=3) THEN GOTO 2620 ELSE IF I=2 AND J=1 THEN GOTO 2620 ELSE  IF I=5 AND J<4 THEN GOTO 2620 ELSE IF J=4 AND (I=2 OR I=3 OR I=4) THEN GOTO 2620 ELSE GOTO 2630
  265. 2620  PRINT CHR$(AAA):PP(I+Y,X+J)=1
  266. 2630  NEXT:NEXT
  267. 2640  X=X+5: RETURN
  268. 2650  FOR I=1 TO 5 : FOR J=1 TO 2 : LOCATE I+Y,J+X   '.
  269. 2660  IF I=5 THEN GOTO 2670 ELSE GOTO 2680
  270. 2670  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  271. 2680  NEXT:NEXT
  272. 2690  X=X+3 : RETURN
  273. 2700  FOR I=1 TO 5 : FOR J=1 TO 2 : LOCATE I+Y,J+X  ',
  274. 2710  IF I=4 THEN GOTO 2720 ELSE IF I=5 AND J=2 THEN GOTO 2720 ELSE GOTO 2730
  275. 2720  PRINT CHR$(AAA) :PP(I+Y,X+J)=1
  276. 2730  NEXT:NEXT
  277. 2740  X=X+3 : RETURN
  278. 2750  X=X+4 ' BLANK SPACE
  279. 2760  RETURN
  280. 2800  IF CHECK = 1 THEN LENGTH=LL ELSE IF CHECK =2 THEN LENGTH=LL2 ELSE IF CHECK = 3 THEN LENGTH = LL3
  281. 2820  IF CHECK = 1 THEN WORD$=FIRST$ ELSE IF CHECK=2 THEN WORD$=SECON$ ELSE IF CHECK = 3 THEN WORD$ =THIRD$
  282. 2821  WIDE=0
  283. 2830  FOR LTRS = 1 TO LENGTH
  284. 2840  LTR$=MID$(WORD$,LTRS,1)
  285. 2850  NUM=ASC(LTR$)
  286. 2860  IF (NUM=32 OR NUM=49 OR NUM=73) THEN WIDE=WIDE+4 ELSE IF (NUM=77 OR NUM=81 OR NUM=86 OR NUM=87 OR NUM=88 OR NUM=89 OR NUM=90) THEN WIDE=WIDE+6 ELSE IF NUM=46 THEN WIDE=WIDE+3 ELSE WIDE=WIDE+5
  287. 2900  NEXT LTRS
  288. 2901  IF WIDE <=80 THEN OK=1 ELSE OK=2
  289. 2910  RETURN
  290.